home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
AmigActive 10
/
AACD 10.iso
/
AACD
/
Programming
/
AmigaTalk
/
System
/
Library.st
< prev
next >
Wrap
Text File
|
2000-05-03
|
766b
|
42 lines
"--------------------------------------------------"
" Library Class is temporarily derived from Object."
"--------------------------------------------------"
Class Library :Object
! libName !
[
openVersion: ver
^ <primitive 190 1 libName ver>
|
close
^ <primitive 190 0 libName>
|
getIDString
^ <primitive 190 2 0 libName>
|
getVersion
^ <primitive 190 2 4 libName>
|
getNegSize
^ <primitive 190 2 1 libName>
|
getPosSize
^ <primitive 190 2 2 libName>
|
getFlags
^ <primitive 190 2 3 libName>
|
getRevision
^ <primitive 190 2 5 libName>
|
getCheckSum
^ <primitive 190 2 6 libName>
|
getOpenCount
^ <primitive 190 2 7 libName>
|
new: libname
libName <- libname.
^ self
]